home *** CD-ROM | disk | FTP | other *** search
- on checkForApp pathToApp
- set i to the text of field "cdDrive" & pathToApp
- put i
- if FileExists(i) = 0 then
- open(i)
- else
- SwapDisc(i)
- end if
- end
-
- on SwapDisc appPath
- global whichCD, whichAppInstall
- set whichAppInstall to 0
- set whichAppInstall to appPath
- go(1, the text of field "pathToProj" & "media\switch")
- end
-